home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
rmqb01.zip
/
WRITEDEF.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-11-06
|
564b
|
32 lines
' WriteDef.bas
'
' Purpose : Creates a DEF file
' Compiler: QuickBASIC 4.5
' Date : Nov 4, 1991
DEFINT A-Z
x = 0
y = 0
x2 = 49
y2 = 49
SCREEN 7 '320X200X16
LINE (0, 0)-(49, 49), 5, B
LINE (10, 10)-(39, 39), 6, BF
OPEN "sample.def" FOR OUTPUT AS #1 'Creates a file called Sample.def
FOR j = y TO y2 'in the current directory.
FOR i = x TO x2
col = POINT(i, j)
c$ = HEX$(col)
PRINT #1, c$;
NEXT i
PRINT #1, CHR$(13);
PRINT #1, CHR$(10);
NEXT j
CLOSE #1